home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / andy.lha / ObjectMove < prev    next >
Text File  |  1995-09-15  |  30KB  |  2,152 lines
  1. extlen: dc.w 0
  2. awayfromwall: dc.w 0
  3. wallbounce: dc.w 0
  4. wallxsize: dc.w 0
  5. wallzsize: dc.w 0
  6. walllength: dc.w 0
  7.  
  8. RoomPath: ds.w 100
  9. RoomPathPtr: dc.l 0
  10. QUITOUT: dc.w 0
  11.  
  12. MoveObject:
  13.  
  14.  move.l #objroom,objroomback
  15.  move.w #200,QUITOUT
  16.  
  17.  move.l #RoomPath,RoomPathPtr
  18.  
  19.  clr.b hitwall
  20.  
  21.  move.w newx,d0
  22.  sub.w oldx,d0
  23.  move.w d0,xdiff
  24.  move.w newz,d0
  25.  sub.w oldz,d0
  26.  move.w d0,zdiff
  27.  tst.w xdiff
  28.  bne.s .moveing
  29.  tst.w zdiff
  30.  bne.s .moveing
  31.  rts
  32.  
  33. .moveing:
  34.  
  35.  move.l newy,wallhitheight
  36.  move.l objroom,a0
  37.  
  38. gobackanddoitallagain:
  39.  
  40.  move.l a0,a5
  41.  adda.w ToExitList(a5),a0
  42.  move.l a0,test
  43.  move.l FloorLines,a1
  44. checkwalls:
  45.  move.w (a0)+,d0
  46.  blt nomorewalls
  47.  
  48.  asl.w #4,d0
  49.  lea (a1,d0.w),a2
  50.  
  51. *********************************
  52. * Check if we are within exit limits
  53. * of zone.
  54. *********************************
  55.  
  56.  move.l #-65536*256,d0
  57.  move.l d0,LowerRoofHeight
  58.  move.l d0,UpperRoofHeight
  59.  move.l d0,LowerFloorHeight
  60.  move.l d0,UpperFloorHeight
  61.  
  62. ; tst.b 9(a2)
  63. ; bne thisisawall2
  64.  
  65.  moveq #0,d1
  66.  move.w 8(a2),d1
  67.  blt thisisawall2
  68.  move.l ZoneAdds,a4
  69.  move.l (a4,d1.w*4),a4
  70.  add.l LEVELDATA,a4
  71.  
  72.  move.l ToZoneFloor(a4),d1
  73.  move.l d1,LowerFloorHeight
  74.  move.l ToZoneRoof(a4),d2
  75.  move.l d2,LowerRoofHeight
  76.  
  77.  bra thisisawall1
  78.  
  79.  sub.l d2,d1
  80.  cmp.l thingheight,d1
  81.  ble thisisawall1
  82.  
  83.  move.l oldy,d0
  84.  move.l d0,d1
  85.  add.l thingheight,d1
  86.  sub.l ToZoneFloor(a4),d1
  87.  bgt.s chkstepup
  88.  
  89.  neg.l d1
  90.  cmp.l StepDownVal,d1
  91.  blt.s botinsidebot
  92.  
  93. chkstepup:
  94.  cmp.l StepUpVal,d1
  95.  blt.s botinsidebot
  96.  
  97. ; We have a wall!
  98.  bra thisisawall1
  99.  
  100. botinsidebot:
  101.  
  102.  sub.l ToZoneRoof(a4),d0
  103.  blt.s thisisawall1
  104.  
  105.  bra checkwalls
  106.  
  107. thisisawall1:
  108.  
  109.  move.l ToUpperFloor(a4),d1
  110.  move.l d1,UpperFloorHeight
  111.  move.l ToUpperRoof(a4),d2
  112.  sub.l d2,d1
  113.  move.l d2,UpperRoofHeight
  114.  
  115.  bra thisisawall2
  116.  
  117.  cmp.l thingheight,d1
  118.  ble thisisawall2
  119.  
  120.  move.l oldy,d0
  121.  move.l d0,d1
  122.  add.l thingheight,d1
  123.  sub.l ToUpperFloor(a4),d1
  124.  bgt.s chkstepup2
  125.  
  126.  neg.l d1
  127.  cmp.l StepDownVal,d1
  128.  blt.s botinsidebot2
  129.  bra.s thisisawall2
  130.  
  131. chkstepup2:
  132.  cmp.l StepUpVal,d1
  133.  blt.s botinsidebot2
  134.  
  135. ; We have a wall!
  136.  bra thisisawall2
  137.  
  138. botinsidebot2:
  139.  
  140.  sub.l ToUpperRoof(a4),d0
  141.  blt.s thisisawall2
  142.  
  143.  bra checkwalls
  144. thisisawall2
  145.  
  146.  move.l #0,a4
  147.  move.l #0,a6
  148.  move.b awayfromwall,d3
  149.  blt.s .notomatoes
  150.  
  151.  move.b 12(a2),d2
  152.  ext.w d2
  153.  
  154.  move.b 13(a2),d4
  155.  ext.w d4
  156.  
  157.  tst.b d3
  158.  beq.s .noshift
  159.  asl.w d3,d2
  160.  asl.w d3,d4
  161. .noshift
  162.  
  163.  move.w d2,a4
  164.  move.w d4,a6
  165.  
  166. .notomatoes:
  167.  
  168.  move.w newx,d0
  169.  move.w newz,d1
  170.  sub.w (a2),d0
  171.  sub.w 2(a2),d1
  172.  sub.w a4,d0
  173.  sub.w a6,d1
  174.  
  175.  move.w 4(a2),d2
  176.  sub.w a4,d2
  177.  sub.w a6,d2
  178.  
  179.  muls d2,d1
  180.  
  181.  move.w 6(a2),d5
  182.  add.w a4,d5
  183.  sub.w a6,d5
  184.  
  185.  muls d5,d0
  186.  sub.l d1,d0
  187.  ble chkhttt
  188.  
  189.  move.w 10(a2),d3
  190.  add.w extlen,d3
  191.  divs d3,d0
  192.  cmp.w #32,d0
  193.  bge oknothitwall
  194.  
  195.  move.w wallflags(pc),d0
  196.  or.w d0,14(a2) 
  197.  
  198.  bra oknothitwall
  199.  
  200. chkhttt:
  201.  
  202.  move.w d2,WALLXLEN
  203.  move.w d5,WALLZLEN
  204.  
  205.  move.l d0,d7
  206.  
  207.  move.w 10(a2),d3
  208.  add.w extlen,d3
  209.  divs d3,d7    ;  d
  210.  
  211.  move.l newy,d4
  212.  sub.l oldy,d4
  213. ; beq .dontworryhit
  214.  
  215.  move.w oldx,d0
  216.  move.w oldz,d1
  217.  sub.w (a2),d0
  218.  sub.w 2(a2),d1
  219.  sub.w a4,d0
  220.  sub.w a6,d1
  221.  
  222.  muls d2,d1
  223.  muls d5,d0
  224.  sub.l d1,d0
  225.  divs d3,d0    ; otherd
  226.  
  227.  sub.w d7,d0    ; total distance travelled across wall
  228.  bgt.s .ohbugger
  229.  moveq #1,d0
  230. .ohbugger:
  231.  
  232. ; We now have ratio to multiply x,z and y differences
  233. ; by. Check y=0 since that's quite common.
  234.  
  235.  move.l d4,d1
  236.  beq.s .dontworryhit
  237.  
  238.  divs d0,d1
  239.  muls d7,d1
  240. .dontworryhit:
  241.  add.l newy,d1 ; height at point of crossing wall.
  242.  move.l d1,d6
  243.  add.l thingheight,d6
  244.  sub.l StepUpVal,d6
  245.  
  246.  cmp.l LowerFloorHeight,d6
  247.  bge.s .yeshit
  248.  cmp.l LowerRoofHeight,d1
  249.  bgt oknothitwall
  250.  cmp.l UpperRoofHeight,d1
  251.  blt.s .yeshit
  252.  cmp.l UpperFloorHeight,d6
  253.  blt oknothitwall
  254.  
  255. .yeshit:
  256.  
  257.  move.l d1,wallhitheight
  258.  
  259.  tst.b wallbounce
  260.  bne.s .calcbounce
  261.  
  262.  tst.b exitfirst(pc)
  263.  beq.s .calcalong
  264.  bne.s .calcwherehit
  265.  
  266. .calcbounce:
  267.  
  268. ; For simplicity (possibility!) the
  269. ; bounce routine will:
  270. ; Place the object at wall contact
  271. ; point
  272. ; Supply wall data to reflect the
  273. ; movement direction of the object
  274.  
  275.  move.w d2,wallxsize
  276.  move.w d5,wallzsize
  277.  move.w d3,walllength
  278.  
  279. .calcwherehit:
  280.  
  281. ; add.w #20,d7
  282.  move.w newx,d6
  283.  sub.w oldx,d6
  284.  muls d7,d6
  285.  divs d0,d6
  286.  add.w newx,d6
  287.  
  288.  move.w newz,d1
  289.  sub.w oldz,d1
  290.  muls d7,d1
  291.  divs d0,d1
  292.  add.w newz,d1
  293.  move.w d6,d0
  294.  move.w d1,d7
  295.  bra.s .calcedhit
  296.  
  297. .calcalong:
  298.  
  299. ; sub.w #3,d7
  300.  move.w d7,d6
  301.  muls d5,d6
  302.  muls d2,d7
  303.  divs d3,d6
  304.  divs d3,d7
  305.  neg.w d6
  306.  add.w newx,d6    ; point on wall
  307.  add.w newz,d7
  308.  
  309.  move.w d6,d0
  310.  move.w d7,d1
  311.  bra.s othercheck
  312.  
  313. .calcedhit:
  314.  
  315.  move.w newx,d6
  316.  move.w newz,d7
  317.  sub.w oldx,d6
  318.  sub.w oldz,d7
  319.   
  320.  move.w (a2),d4
  321.  add.w a4,d4
  322.  sub.w oldx,d4
  323.  muls d4,d7; negative if on left
  324.  move.w 2(a2),d4
  325.  add.w a6,d4
  326.  sub.w oldz,d4
  327.  muls d4,d6
  328.  sub.l d6,d7
  329.  bgt oknothitwall
  330.  
  331.  move.w d0,d6
  332.  move.w d1,d7
  333.  move.w newx,d6
  334.  move.w newz,d7
  335.  sub.w oldx,d6
  336.  sub.w oldz,d7
  337.  
  338.  move.w (a2),d4
  339.  add.w a4,d4
  340.  add.w d2,d4
  341.  sub.w oldx,d4
  342.  muls d4,d7; negative if on left
  343.  move.w 2(a2),d4
  344.  add.w a6,d4
  345.  add.w d5,d4
  346.  sub.w oldz,d4
  347.  muls d4,d6
  348.  sub.l d6,d7
  349.  blt oknothitwall
  350.  bra hitthewall
  351.  
  352.  
  353. othercheck:
  354.  
  355. ; sub.w (a2),d6
  356. ; sub.w 2(a2),d7
  357. ; sub.w a4,d6
  358. ; sub.w a6,d7
  359. ; 
  360. ; muls d6,d6
  361. ; muls d7,d7
  362. ; add.w #5,d3
  363. ; muls d3,d3
  364. ; 
  365. ; add.l d6,d7
  366. ; cmp.l d3,d7
  367. ; bgt oknothitwall
  368. ; 
  369. ; move.w d1,d7
  370. ; move.w d0,d6
  371. ; sub.w (a2),d6
  372. ; sub.w 2(a2),d7
  373. ; sub.w d2,d6
  374. ; sub.w d5,d7
  375. ; muls d6,d6
  376. ; muls d7,d7
  377. ; add.l d6,d7
  378. ; cmp.l d3,d7
  379. ; bgt oknothitwall
  380. ; 
  381. ;************8 
  382.  
  383.  sub.w (a2),d6
  384.  sub.w 2(a2),d7
  385.  
  386.  sub.w a4,d6
  387.  sub.w a6,d7
  388.  move.w d2,d4
  389.  bge.s okplus1
  390.  neg.w d4
  391. okplus1
  392.  move.w d5,d3
  393.  bge.s okplus2
  394.  neg.w d3
  395. okplus2:
  396.  cmp.w d4,d3
  397.  bgt.s UseZ
  398.  
  399. ; Use the x coord!
  400.  
  401.  tst.w d6
  402.  bgt.s xispos
  403.  
  404.  move.w d2,d7
  405.  cmp.w #4,d7
  406.  bgt.s oknothitwall
  407.  sub.w #4,d7
  408.  cmp.w d7,d6
  409.  blt.s oknothitwall
  410.  
  411.  bra.s hitthewall
  412.  
  413. xispos:
  414.  
  415.  move.w d2,d7
  416.  cmp.w #-4,d7
  417.  blt.s oknothitwall
  418.  add.w #4,d7
  419.  cmp.w d7,d6
  420.  bgt.s oknothitwall
  421.  
  422.  bra.s hitthewall
  423.  
  424. UseZ:
  425.  tst.w d7
  426.  bgt.s zispos
  427.  
  428.  move.w d5,d6
  429.  cmp.w #4,d6
  430.  bgt.s oknothitwall
  431.  sub.w #4,d6
  432.  cmp.w d6,d7
  433.  blt.s oknothitwall
  434.  
  435.  bra.s hitthewall
  436.  
  437. zispos:
  438.  
  439.  move.w d5,d6
  440.  cmp.w #-4,d6
  441.  blt.s oknothitwall
  442.  add.w #4,d6
  443.  cmp.w d6,d7
  444.  bgt.s oknothitwall 
  445.  
  446. hitthewall:
  447.  
  448.  move.w d0,newx
  449.  move.w d1,newz
  450.  move.w wallflags(pc),d0
  451.  or.w d0,14(a2)
  452.  st hitwall
  453.  tst.b exitfirst(pc)
  454.  bne stopandleave
  455.  
  456. oknothitwall:
  457.  
  458.  bra checkwalls
  459. nomorewalls:
  460.  
  461.  tst.w extlen
  462.  beq NOOTHERWALLSNEEDED
  463.  
  464.  tst.w xdiff
  465.  bne.s notstill
  466.  tst.w zdiff
  467.  bne.s notstill
  468.  move.l objroom,a0
  469.  bra mustbeinsameroom
  470. notstill:
  471.  
  472.  move.l a5,a0
  473.  add.w ToExitList(a0),a0
  474.  
  475. checkotherwalls:
  476.  move.w (a0)+,d0
  477.  bge anotherwalls
  478.  cmp.w #-2,d0
  479.  beq nomoreotherwalls
  480.  bra checkotherwalls
  481.  
  482. anotherwalls:
  483.  
  484.  asl.w #4,d0
  485.  lea (a1,d0.w),a2
  486.  
  487. *********************************
  488. * Check if we are within exit limits
  489. * of zone.
  490. *********************************
  491.  
  492. ; tst.b 9(a2)
  493. ; bne .thisisawall2
  494.  
  495.  moveq #0,d1
  496.  move.w 8(a2),d1
  497.  blt .thisisawall2
  498.  move.l ZoneAdds,a4
  499.  move.l (a4,d1.w*4),a4
  500.  add.l LEVELDATA,a4
  501.  
  502.  move.l ToZoneFloor(a4),d1
  503.  sub.l ToZoneRoof(a4),d1
  504.  cmp.l thingheight,d1
  505.  ble .thisisawall1
  506.  
  507.  move.l newy,d0
  508.  move.l d0,d1
  509.  add.l thingheight,d1
  510.  sub.l ToZoneFloor(a4),d1
  511.  bgt.s .chkstepup
  512.  
  513.  neg.l d1
  514.  cmp.l StepDownVal,d1
  515.  blt.s .botinsidebot
  516.  bra.s .thisisawall1
  517.  
  518. .chkstepup:
  519.  
  520.  cmp.l StepUpVal,d1
  521.  blt.s .botinsidebot
  522.  
  523. ; We have a wall!
  524.  bra .thisisawall1
  525.  
  526. .botinsidebot:
  527.  
  528.  sub.l ToZoneRoof(a4),d0
  529.  blt.s .thisisawall1
  530.  
  531.  bra checkotherwalls
  532.  
  533. .thisisawall1:
  534.  
  535.  move.l ToUpperFloor(a4),d1
  536.  sub.l ToUpperRoof(a4),d1
  537.  cmp.l thingheight,d1
  538.  ble .thisisawall2
  539.  
  540.  move.l newy,d0
  541.  move.l d0,d1
  542.  add.l thingheight,d1
  543.  sub.l ToUpperFloor(a4),d1
  544.  bgt.s .chkstepup2
  545.  
  546.  neg.l d1
  547.  cmp.l StepDownVal,d1
  548.  blt.s .botinsidebot2
  549.  bra.s .thisisawall2
  550.  
  551. .chkstepup2:
  552.  
  553.  cmp.l StepUpVal,d1
  554.  blt.s .botinsidebot2
  555.  
  556. ; We have a wall!
  557.  bra .thisisawall2
  558.  
  559. .botinsidebot2:
  560.  
  561.  sub.l ToUpperRoof(a4),d0
  562.  blt.s .thisisawall2
  563.  
  564.  bra checkotherwalls
  565.  
  566. .thisisawall2:
  567.  
  568.  move.l #0,a4
  569.  move.l #0,a6
  570.  move.b awayfromwall,d3
  571.  blt.s .notomatoes
  572.  
  573.  move.b 12(a2),d2
  574.  ext.w d2
  575.  
  576.  move.b 13(a2),d4
  577.  ext.w d4
  578.  
  579.  tst.b d3
  580.  beq.s .noshift
  581.  asl.w d3,d2
  582.  asl.w d3,d4
  583. .noshift
  584.  
  585.  move.w d2,a4
  586.  move.w d4,a6
  587.  
  588. .notomatoes:
  589.  
  590.  move.w 4(a2),d2
  591.  sub.w a4,d2
  592.  sub.w a6,d2
  593.  move.w d2,DX
  594.  move.w 6(a2),d5
  595.  add.w a4,d5
  596.  sub.w a6,d5
  597.  
  598.  
  599.  move.w newx,d0
  600.  move.w newz,d1
  601.  sub.w (a2),d0
  602.  sub.w 2(a2),d1
  603.  sub.w a4,d0
  604.  sub.w a6,d1
  605.  muls DX,d1
  606.  muls d5,d0
  607.  sub.l d1,d0
  608.  bge .oknothitwall
  609.  move.l d0,d7
  610.  
  611.  move.w oldx,d1
  612.  move.w newx,d3
  613.  sub.w d1,d3
  614.  sub.w (a2),d1
  615.  sub.w a4,d1 ;e-a=d1
  616.  
  617.  move.w 2(a2),d2
  618.  add.w a6,d2
  619.  sub.w oldz,d2    ;b-f=d2
  620.  
  621.  move.w newz,d4
  622.  sub.w oldz,d4
  623.  
  624.  muls d4,d1
  625.  muls d3,d2
  626.  add.l d2,d1    ; h(e-a)+g(b-f)
  627.  
  628.  muls DX,d4
  629.  muls d5,d3
  630.  sub.l d3,d4
  631.  beq .oknothitwall
  632.  bgt.s .botpos
  633. .botneg:
  634.  tst.l d1
  635.  bgt .oknothitwall
  636.  cmp.l d1,d4
  637.  ble .mighthit
  638.  bra .oknothitwall
  639.  
  640. .botpos:
  641.  tst.l d1
  642.  blt .oknothitwall
  643.  cmp.l d1,d4
  644.  blt .oknothitwall
  645.  
  646. .mighthit:
  647.  
  648.  move.w 10(a2),d0
  649.  add.w extlen,d0
  650.  divs d0,d7    ;  d
  651.  sub.w #3,d7
  652.  move.w d7,d6
  653.  muls d5,d6
  654.  muls DX,d7
  655.  divs d0,d6
  656.  divs d0,d7
  657.  neg.w d6
  658.  add.w newx,d6    ; point on wall
  659.  add.w newz,d7
  660.  
  661.  move.w oldx,d0
  662.  move.w oldz,d1
  663.  sub.w (a2),d0
  664.  sub.w 2(a2),d1
  665.  sub.w a4,d0
  666.  sub.w a6,d1
  667.  muls DX,d1
  668.  muls d5,d0
  669.  sub.l d1,d0
  670.  blt .oknothitwall
  671.  
  672.  move.w d6,d0
  673.  move.w d7,d1
  674.  
  675.  bra .hitthewall
  676.  
  677.  sub.w (a2),d6
  678.  sub.w 2(a2),d7
  679.  move.w d6,d4
  680.  bge.s .okplus1
  681.  neg.w d4
  682. .okplus1
  683.  move.w d7,d3
  684.  bge.s .okplus2
  685.  neg.w d3
  686. .okplus2:
  687.  cmp.w d4,d3
  688.  bgt.s .UseZ
  689.  
  690. ; Use the x coord!
  691.  
  692.  tst.w d6
  693.  bgt.s .xispos
  694.  
  695.  move.w DX,d7
  696.  bgt.s .oknothitwall
  697.  cmp.w d7,d6
  698.  blt.s .oknothitwall
  699.  
  700.  bra.s .hitthewall
  701.  
  702. .xispos:
  703.  
  704.  move.w DX,d7
  705.  blt.s .oknothitwall
  706.  cmp.w d7,d6
  707.  bgt.s .oknothitwall
  708.  
  709.  bra.s .hitthewall
  710.  
  711. .UseZ:
  712.  tst.w d7
  713.  bgt.s .zispos
  714.  
  715.  move.w d5,d6
  716.  bgt.s .oknothitwall
  717.  cmp.w d6,d7
  718.  blt.s .oknothitwall
  719.  
  720.  bra.s .hitthewall
  721.  
  722. .zispos:
  723.  
  724.  move.w d5,d6
  725.  blt.s .oknothitwall
  726.  cmp.w d6,d7
  727.  bgt.s .oknothitwall
  728.  
  729.  
  730. .hitthewall:
  731.  
  732.  move.w d0,newx
  733.  move.w d1,newz
  734.  move.w wallflags(pc),d0
  735.  or.w d0,14(a2)
  736.  st hitwall
  737.  tst.b exitfirst(pc)
  738.  bne stopandleave
  739.  
  740. .oknothitwall:
  741.  
  742.  bra checkotherwalls
  743. nomoreotherwalls:
  744.  
  745. NOOTHERWALLSNEEDED
  746.  
  747.  
  748. ; move.w xdiff,d2
  749. ; muls d2,d2
  750. ; move.w zdiff,d3
  751. ; muls d3,d3
  752. ; move.w #0,movespd
  753. ; move.l #0,largespd
  754. ; add.l d3,d2
  755. ;
  756. ; move.w #31,d0
  757. ;.findhigh
  758. ; btst d0,d2
  759. ; bne .foundhigh
  760. ; dbra d0,.findhigh
  761. ;.foundhigh
  762. ; asr.w #1,d0
  763. ; clr.l d3
  764. ; bset d0,d3
  765. ; move.l d3,d0
  766. ;
  767. ; move.w d0,d3
  768. ; muls d3,d3    ; x*x
  769. ; sub.l d2,d3    ; x*x-a
  770. ; asr.l #1,d3    ; (x*x-a)/2
  771. ; divs d0,d3    ; (x*x-a)/2x
  772. ; sub.w d3,d0    ; second approx
  773. ; bgt .stillnot0
  774. ; move.w #1,d0
  775. ;.stillnot0
  776. ;
  777. ; move.w d0,d3
  778. ; muls d3,d3
  779. ; sub.l d2,d3
  780. ; asr.l #1,d3
  781. ; divs d0,d3
  782. ; sub.w d3,d0    ; second approx
  783. ; bgt .stillnot02
  784. ; move.w #1,d0
  785. ;.stillnot02
  786. ;
  787. ; move.w d0,movespd
  788. ;.moving
  789. ; ext.l d0
  790. ; asl.l #5,d0
  791. ; move.l d0,largespd
  792.  
  793. *****************************************************
  794. * FIND ROOM WE'RE STANDING IN ***********************
  795. *****************************************************
  796.  
  797.  move.l a5,a0
  798.  adda.w ToExitList(a5),a0
  799.  
  800.  move.l FloorLines,a1
  801. CheckMoreFloorLines
  802.  move.w (a0)+,d0    ; Either a floor line or -1
  803.  blt NoMoreFloorLines
  804.  asl.w #4,d0
  805.  lea (a1,d0.w),a2
  806.  
  807.  tst.w 8(a2)
  808.  blt.s CheckMoreFloorLines
  809.  
  810.  clr.b CrossIntoTop
  811.  
  812.  moveq #0,d1
  813.  move.w 8(a2),d1
  814.  move.l ZoneAdds,a4
  815.  move.l (a4,d1.w*4),a4
  816.  add.l LEVELDATA,a4
  817.  
  818.  move.l ToZoneRoof(a4),LowerRoofHeight
  819.  
  820. ; move.l newy,d0
  821. ; move.l d0,d1
  822. ; add.l thingheight,d1
  823. ;
  824. ; sub.l ToZoneRoof(a4),d0
  825. ; blt.s NOTINLOWER
  826. ; 
  827. ; sub.l ToZoneFloor(a4),d1
  828. ; blt.s okthebottom
  829. ;
  830. ; cmp.l StepUpVal,d1
  831. ; bgt.s NOTINLOWER
  832. ;
  833. ; move.l ToZoneFloor(a4),d1
  834. ; sub.l thingheight,d1
  835. ; move.l d1,newy
  836. ; bra okthebottom
  837. ;
  838. ;NOTINLOWER:
  839. ;
  840. ; move.l ToZoneRoof(a4),billy
  841. ; move.l ToZoneRoof(a4),billy+4
  842. ; add.l d0,billy+4
  843. ;
  844. ; st CrossIntoTop
  845. ; move.l newy,d0
  846. ; move.l d0,d1
  847. ; add.l thingheight,d1
  848. ; sub.l ToUpperRoof(a4),d0
  849. ; blt CheckMoreFloorLines
  850. ; 
  851. ; sub.l ToUpperFloor(a4),d1
  852. ; blt.s okthebottom
  853. ;
  854. ; cmp.l StepUpVal,d1
  855. ; bgt CheckMoreFloorLines
  856.  
  857. ; move.l ToUpperFloor(a4),d1
  858. ; sub.l thingheight,d1
  859. ; move.l d1,newy
  860.  
  861. okthebottom
  862.  
  863.  move.w newx,d0
  864.  move.w newz,d1
  865.  sub.w (a2),d0    ;a
  866.  sub.w 2(a2),d1    ;b
  867.  muls 4(a2),d1
  868.  muls 6(a2),d0
  869.  moveq #0,d3
  870.  move.w 8(a2),d3
  871.  move.l ZoneAdds,a3
  872.  move.l (a3,d3.w*4),a3
  873.  add.l LEVELDATA,a3
  874.  sub.l d1,d0
  875.  bge StillSameSide
  876.  
  877. * Player is now on the left side of this line.
  878. * Where was he before?
  879.  
  880. ; cmp.l a4,a5
  881. ; bne StillSameSide
  882.  
  883. ; move.w oldx,d0
  884. ; move.w oldz,d1
  885. ; sub.w (a2),d0    ;a
  886. ; sub.w 2(a2),d1    ;b
  887. ; muls 4(a2),d1
  888. ; muls 6(a2),d0
  889. ; sub.l d1,d0
  890. ; blt StillSameSide
  891. ; bra checkifcrossed
  892.  
  893. OnRightsideofline:
  894. * Player is now on the right side of the line.
  895. * Where was he last time?
  896.  
  897. ; exg a3,a4
  898.  
  899. ; cmp.l a3,a5
  900. ; bne StillSameSide
  901.  
  902. ; move.w oldx,d0
  903. ; move.w oldz,d1
  904. ; sub.w (a2),d0    ;a
  905. ; sub.w 2(a2),d1    ;b
  906. ; muls 4(a2),d1
  907. ; muls 6(a2),d0
  908. ; sub.l d1,d0
  909. ; bgt StillSameSide
  910.  
  911. checkifcrossed:
  912.  
  913. *Player used to be on other side of this line.
  914. *Need to check if he crossed it.
  915.  
  916.  move.l d0,billy
  917.  
  918.  move.w newx,d6
  919.  move.w newz,d7
  920.  sub.w oldx,d6
  921.  sub.w oldz,d7
  922.   
  923.  move.w (a2),d4
  924.  sub.w oldx,d4
  925.  muls d4,d7; negative if on left
  926.  move.w 2(a2),d4
  927.  sub.w oldz,d4
  928.  muls d4,d6
  929.  sub.l d6,d7
  930.  bgt StillSameSide
  931.  
  932.  move.w d0,d6
  933.  move.w d1,d7
  934.  move.w newx,d6
  935.  move.w newz,d7
  936.  sub.w oldx,d6
  937.  sub.w oldz,d7
  938.  
  939.  move.w (a2),d4
  940.  add.w 4(a2),d4
  941.  sub.w oldx,d4
  942.  muls d4,d7; negative if on left
  943.  move.w 2(a2),d4
  944.  add.w 6(a2),d4
  945.  sub.w oldz,d4
  946.  muls d4,d6
  947.  sub.l d6,d7
  948.  blt StillSameSide
  949.  
  950. ; Find height at crossing point:
  951.  
  952.  move.l billy,d7
  953.  divs 10(a2),d7
  954.  move.w oldx,d0
  955.  move.w oldz,d1
  956.  sub.w (a2),d0
  957.  sub.w 2(a2),d1
  958.  sub.w a4,d0
  959.  sub.w a6,d1
  960.  
  961.  muls 4(a2),d1
  962.  muls 6(a2),d0
  963.  sub.l d1,d0
  964.  divs 10(a2),d0 
  965.  
  966.  sub.w d7,d0
  967.  bgt.s .ohbugger
  968.  moveq #1,d0
  969. .ohbugger:
  970.  
  971.  
  972.  move.l newy,d4
  973.  sub.l oldy,d4
  974.  divs d0,d4
  975.  muls d7,d4
  976.  add.l newy,d4
  977.  
  978.  cmp.l LowerRoofHeight,d4
  979.  slt StoodInTop
  980.  
  981.  move.l a3,a5
  982.  move.l RoomPathPtr,a0
  983.  move.w (a3),(a0)+
  984.  move.l a0,RoomPathPtr
  985.  move.l a3,a0
  986.  move.l a5,objroom
  987.  
  988.  move.w QUITOUT,d0
  989.  sub.w #1,d0
  990.  beq.s ERRORINMOVEMENT
  991.  move.w d0,QUITOUT
  992.  bra gobackanddoitallagain
  993. ; bra.s donefloorline
  994.  
  995. StillSameSide:
  996. donefloorline:
  997.  
  998.  bra CheckMoreFloorLines
  999. NoMoreFloorLines:
  1000.  
  1001.  move.l a5,a0
  1002.  move.l a5,objroom
  1003.  
  1004. mustbeinsameroom:
  1005.  
  1006. stopandleave:
  1007.  
  1008.  move.l RoomPathPtr,a0
  1009.  move.w #-1,(a0)+
  1010.  
  1011.  rts
  1012.  
  1013. ERRORINMOVEMENT:
  1014.  move.w oldx,newx
  1015.  move.w oldz,newz
  1016.  move.l oldy,newy
  1017.  move.l objroomback,objroom
  1018.  rts
  1019.  
  1020. objroomback: dc.l 0
  1021.  
  1022. DX: dc.w 0
  1023.  
  1024. tstxval: dc.l 0
  1025. oldx: dc.l 0
  1026. oldz: dc.l 0
  1027. newx: dc.l 0
  1028. newz: dc.l 0
  1029. xdiff: dc.l 0
  1030. zdiff: dc.l 0
  1031. objroom: dc.l 0
  1032. hitwall: dc.b 0
  1033. exitfirst: dc.b 0
  1034. speed: dc.w 0
  1035. wallflags: dc.w 0
  1036. distaway: dc.w 0
  1037. newy: dc.l 0
  1038. oldy: dc.l 0
  1039. thingheight: dc.l 0
  1040. StepUpVal: dc.l 0
  1041. StepDownVal: dc.l 0
  1042. wallhitheight: dc.l 0
  1043. seclot: dc.b 0
  1044.  
  1045.  even
  1046. WALLXLEN: dc.w 0
  1047. WALLZLEN: dc.w 0
  1048. onwallx: dc.w 0
  1049. onwallz: dc.w 0
  1050. slidex: dc.w 0
  1051. slidez: dc.w 0
  1052. CrossIntoTop: dc.b 0
  1053. StoodInTop: dc.b 0
  1054. LowerFloorHeight: dc.l 0
  1055. LowerRoofHeight: dc.l 0
  1056. UpperFloorHeight: dc.l 0
  1057. UpperRoofHeight: dc.l 0
  1058.  
  1059. billy: dc.l 0,0
  1060.  
  1061.  even
  1062.  
  1063. HeadTowards:
  1064.  
  1065.  move.w newx,d1
  1066.  sub.w oldx,d1
  1067.  move.w d1,xdiff
  1068.  move.w newz,d2
  1069.  sub.w oldz,d2
  1070.  move.w d2,zdiff
  1071.  muls d1,d1
  1072.  muls d2,d2
  1073.  move.w #0,d0
  1074.  move.w d0,distaway
  1075.  add.l d1,d2
  1076.  beq nochange
  1077.  
  1078.  move.w #31,d0
  1079. .findhigh
  1080.  btst d0,d2
  1081.  bne .foundhigh
  1082.  dbra d0,.findhigh
  1083. .foundhigh
  1084.  asr.w #1,d0
  1085.  clr.l d3
  1086.  bset d0,d3
  1087.  move.l d3,d0
  1088.  
  1089.  move.w d0,d1
  1090.  muls d1,d1    ; x*x
  1091.  sub.l d2,d1    ; x*x-a
  1092.  asr.l #1,d1    ; (x*x-a)/2
  1093.  divs d0,d1    ; (x*x-a)/2x
  1094.  sub.w d1,d0    ; second approx
  1095.  bgt .stillnot0
  1096.  move.w #1,d0
  1097. .stillnot0
  1098.  
  1099.  move.w d0,d1
  1100.  muls d1,d1
  1101.  sub.l d2,d1
  1102.  asr.l #1,d1
  1103.  divs d0,d1
  1104.  sub.w d1,d0    ; second approx
  1105.  bgt .stillnot02
  1106.  move.w #1,d0
  1107. .stillnot02
  1108.  
  1109.  move.w d0,distaway
  1110.  
  1111. ; d0=perpdist
  1112.  
  1113.  cmp.w Range,d0
  1114.  sle GotThere
  1115.  bgt.s faraway
  1116.  
  1117.  move.w xdiff,d1
  1118.  move.w zdiff,d2
  1119.  muls Range,d1
  1120.  muls Range,d2
  1121.  divs d0,d1
  1122.  divs d0,d2
  1123.  neg.w d1
  1124.  neg.w d2
  1125.  add.w d1,newx
  1126.  add.w d2,newz
  1127.  bra nochange
  1128.  
  1129. faraway:
  1130.  move.w speed,d3
  1131.  add.w Range,d3
  1132.  cmp.w d0,d3
  1133.  blt.s .notoofast
  1134.  move.w d0,d3
  1135.  st GotThere
  1136. .notoofast:
  1137.  sub.w Range,d3
  1138.  
  1139.  move.w xdiff,d1
  1140.  muls d3,d1
  1141.  divs d0,d1
  1142.  move.w zdiff,d2
  1143.  muls d3,d2
  1144.  divs d0,d2
  1145.  add.w oldx,d1
  1146.  move.w d1,newx
  1147.  add.w oldz,d2
  1148.  move.w d2,newz
  1149.  
  1150. nochange:
  1151.  
  1152.  rts
  1153.  
  1154.  
  1155. CalcDist:
  1156.  
  1157.  move.w newx,d1
  1158.  sub.w oldx,d1
  1159.  move.w d1,xdiff
  1160.  move.w newz,d2
  1161.  sub.w oldz,d2
  1162.  move.w d2,zdiff
  1163.  muls d1,d1
  1164.  muls d2,d2
  1165.  move.w #0,d0
  1166.  move.w d0,distaway
  1167.  add.l d1,d2
  1168.  beq .nochange
  1169.  
  1170.  move.w #31,d0
  1171. .findhigh
  1172.  btst d0,d2
  1173.  bne .foundhigh
  1174.  dbra d0,.findhigh
  1175. .foundhigh
  1176.  asr.w #1,d0
  1177.  clr.l d3
  1178.  bset d0,d3
  1179.  move.l d3,d0
  1180.  
  1181.  move.w d0,d1
  1182.  muls d1,d1    ; x*x
  1183.  sub.l d2,d1    ; x*x-a
  1184.  asr.l #1,d1    ; (x*x-a)/2
  1185.  divs d0,d1    ; (x*x-a)/2x
  1186.  sub.w d1,d0    ; second approx
  1187.  bgt .stillnot0
  1188.  move.w #1,d0
  1189. .stillnot0
  1190.  
  1191.  move.w d0,d1
  1192.  muls d1,d1
  1193.  sub.l d2,d1
  1194.  asr.l #1,d1
  1195.  divs d0,d1
  1196.  sub.w d1,d0    ; second approx
  1197.  bgt .stillnot02
  1198.  move.w #1,d0
  1199. .stillnot02
  1200.  
  1201.  move.w d0,distaway
  1202. .nochange:
  1203.  
  1204.  rts
  1205.  
  1206.  
  1207. counterer: dc.w 0
  1208. CosRet: dc.w 0
  1209. SinRet: dc.w 0
  1210.  
  1211. HeadTowardsAng:
  1212.  
  1213.  move.w newx,d1
  1214.  sub.w oldx,d1
  1215.  move.w d1,xdiff
  1216.  move.w newz,d2
  1217.  sub.w oldz,d2
  1218.  move.w d2,zdiff
  1219.  muls d1,d1
  1220.  muls d2,d2
  1221.  move.w #0,d0
  1222.  add.l d1,d2
  1223.  seq GotThere
  1224.  beq .nochange
  1225.  
  1226.  move.w #31,d0
  1227. .findhigh
  1228.  btst d0,d2
  1229.  bne .foundhigh
  1230.  dbra d0,.findhigh
  1231. .foundhigh
  1232.  asr.w #1,d0
  1233.  clr.l d3
  1234.  bset d0,d3
  1235.  move.l d3,d0
  1236.  
  1237.  move.w d0,d1
  1238.  muls d1,d1    ; x*x
  1239.  sub.l d2,d1    ; x*x-a
  1240.  asr.l #1,d1    ; (x*x-a)/2
  1241.  divs d0,d1    ; (x*x-a)/2x
  1242.  sub.w d1,d0    ; second approx
  1243.  bgt .stillnot0
  1244.  move.w #1,d0
  1245. .stillnot0
  1246.  
  1247.  move.w d0,d1
  1248.  muls d1,d1
  1249.  sub.l d2,d1
  1250.  asr.l #1,d1
  1251.  divs d0,d1
  1252.  sub.w d1,d0    ; second approx
  1253.  bgt .stillnot02
  1254.  move.w #1,d0
  1255. .stillnot02
  1256.  
  1257.  move.w d0,d1
  1258.  muls d1,d1
  1259.  sub.l d2,d1
  1260.  asr.l #1,d1
  1261.  divs d0,d1
  1262.  sub.w d1,d0    ; second approx
  1263.  bgt .stillnot03
  1264.  move.w #1,d0
  1265. .stillnot03
  1266.  
  1267.  
  1268. ; d0=perpdist
  1269.  
  1270.  cmp.w Range,d0
  1271.  sle GotThere
  1272.  bgt .faraway
  1273.  
  1274.  move.w oldx,newx
  1275.  move.w oldz,newz
  1276.  bra .nochange
  1277.  
  1278.  move.w xdiff,d1
  1279.  move.w zdiff,d2
  1280.  muls Range,d1
  1281.  muls Range,d2
  1282.  addq #3,d0
  1283.  divs d0,d1
  1284.  divs d0,d2
  1285.  subq #3,d0
  1286.  neg.w d1
  1287.  neg.w d2
  1288.  add.w d1,newx
  1289.  add.w d2,newz
  1290.  tst.b canshove
  1291.  beq .nochange
  1292.  move.w PLR1_opushx(pc),d1
  1293.  add.w PLR2_opushx(pc),d1
  1294.  sub.w d1,newx
  1295.  move.w PLR1_opushz(pc),d1
  1296.  add.w PLR2_opushz(pc),d1
  1297.  sub.w d1,newz
  1298.  move.w xdiff,d1
  1299.  move.w zdiff,d2
  1300.  move.w Range,d3
  1301.  sub.w d0,d3
  1302.  muls d3,d1
  1303.  muls d3,d2
  1304.  divs d0,d1
  1305.  divs d0,d2
  1306.  move.w d1,shovex
  1307.  move.w d2,shovez
  1308.  bra .nochange
  1309.  
  1310. .faraway:
  1311.  
  1312.  move.w speed,d3
  1313.  add.w Range,d3
  1314.  cmp.w d0,d3
  1315.  blt.s .notoofast
  1316.  move.w d0,d3
  1317.  st GotThere
  1318. .notoofast:
  1319.  sub.w Range,d3
  1320.  
  1321.  move.w xdiff,d1
  1322.  muls d3,d1
  1323.  divs d0,d1
  1324.  move.w zdiff,d2
  1325.  muls d3,d2
  1326.  divs d0,d2
  1327.  add.w oldx,d1
  1328.  move.w d1,newx
  1329.  add.w oldz,d2
  1330.  move.w d2,newz
  1331.  
  1332. .nochange:
  1333.  
  1334.  tst.w d0
  1335.  beq.s nocossin
  1336.  
  1337.  add.w #1,d0
  1338.  move.w xdiff,d1
  1339.  swap d1
  1340.  clr.w d1
  1341.  asr.l #1,d1
  1342.  divs d0,d1
  1343.  move.w d1,SinRet
  1344.  move.w zdiff,d1
  1345.  swap d1
  1346.  clr.w d1
  1347.  asr.l #1,d1
  1348.  divs d0,d1
  1349.  move.w d1,CosRet
  1350.  
  1351.  move.w SinRet,d0
  1352.  move.w #0,d2
  1353.  move.l #SineTable,a2
  1354.  lea 2048(a2),a3
  1355.  move.w #3,d5
  1356.  move.w #2048,d6
  1357. findanglop:
  1358.  
  1359.  move.w (a2,d2.w*2),d3
  1360.  move.w (a3,d2.w*2),d4
  1361.  muls d0,d4
  1362.  muls d1,d3
  1363.  sub.l d3,d4
  1364.  blt.s subang
  1365.  add.w d6,d2
  1366.  add.w d6,d2
  1367. subang:
  1368.  sub.w d6,d2
  1369.  and.w #4095,d2
  1370.  asr.w #1,d6
  1371.  dbra d5,findanglop
  1372.  add.w d2,d2
  1373.  move.w d2,AngRet
  1374.  
  1375. nocossin:
  1376.  
  1377.  rts
  1378.  
  1379. AngRet: dc.w 0
  1380. Range: dc.w 0
  1381. GotThere: dc.w 0
  1382. shovex: dc.w 0
  1383. shovez: dc.w 0
  1384. canshove: dc.w 0
  1385. PLR2_pushx: dc.l 0
  1386. PLR2_pushz: dc.l 0
  1387. PLR2_opushx: dc.l 0
  1388. PLR2_opushz: dc.l 0
  1389. PLR1_pushx: dc.l 0
  1390. PLR1_pushz: dc.l 0
  1391. PLR1_opushx: dc.l 0
  1392. PLR1_opushz: dc.l 0
  1393.  
  1394. CheckHit:
  1395.  move.w newx,d0
  1396.  sub.w oldx,d0
  1397.  move.w newz,d1
  1398.  sub.w oldz,d1
  1399.  muls d1,d1
  1400.  muls d0,d0
  1401.  add.l d0,d1
  1402.  cmp.l d2,d1
  1403.  slt hitwall
  1404.  rts
  1405.  
  1406. GetNextCPt:
  1407.  cmp.w d0,d1
  1408.  beq.s noneedforhassle
  1409.  muls #100,d0
  1410.  ext.l d1
  1411.  add.l d1,d0
  1412.  move.l a0,-(a7)
  1413.  lea ControlPts,a0
  1414.  move.b (a0,d0.w),d0
  1415.  ext.w d0
  1416.  move.l (a7)+,a0
  1417. noneedforhassle:
  1418.  rts
  1419.  
  1420. FromRoom: dc.l 0
  1421. ToRoom: dc.l 0
  1422. CanSee: dc.w 0
  1423. Facedir: dc.w 0
  1424.  
  1425.  even
  1426.  
  1427. CanItBeSeenAng:
  1428.  movem.l d0-d7/a0-a6,-(a7)
  1429.  
  1430.  move.w Facedir,d0
  1431.  move.l #SineTable,a0
  1432.  add.w d0,a0
  1433.  move.w (a0),d0
  1434.  move.w 2048(a0),d1
  1435.  move.w Targetx,d2
  1436.  sub.w Viewerx,d2
  1437.  move.w Targetz,d3
  1438.  sub.w Viewerz,d3
  1439.  muls d1,d2
  1440.  muls d0,d3
  1441.  sub.l d3,d2
  1442.  bgt.s ItMightBeSeen
  1443.  clr.b CanSee
  1444.  movem.l (a7)+,d0-a7/a0-a6
  1445.  rts
  1446. ItMightBeSeen:
  1447.  
  1448.  move.l ToRoom,a0
  1449.  move.w (a0),d0
  1450.  move.l FromRoom,a0
  1451.  adda.w #ToListOfGraph,a0
  1452.  bra.s InList
  1453.  
  1454. Viewerx: dc.l 0
  1455. Viewerz: dc.l 0
  1456. Targetx: dc.l 0
  1457. Targetz: dc.l 0
  1458. ViewerTop: dc.b 0
  1459. TargetTop: dc.b 0 
  1460. Viewery: dc.w 0
  1461. Targety: dc.w 0
  1462.  
  1463.   even
  1464.  
  1465. insameroom:
  1466.  st CanSee
  1467.  move.b ViewerTop,d0
  1468.  move.b TargetTop,d1
  1469.  eor.b d0,d1
  1470.  bne outlist
  1471.  movem.l (a7)+,d0-d7/a0-a6
  1472.  rts
  1473.  
  1474. CanItBeSeen:
  1475.  
  1476.  movem.l d0-d7/a0-a6,-(a7)
  1477.  move.l ToRoom,a1
  1478.  move.w (a1),d0
  1479.  move.l FromRoom,a0
  1480.  cmp.l a0,a1
  1481.  beq.s insameroom
  1482.  
  1483.  adda.w #ToListOfGraph,a0
  1484.  
  1485. InList:
  1486.  move.w (a0),d1
  1487.  tst.w d1
  1488.  blt outlist
  1489.  move.l ZoneGraphAdds,a1
  1490.  move.l (a1,d1.w*8),a1
  1491.  add.l LEVELGRAPHICS,a1
  1492.  
  1493.  adda.w #8,a0
  1494.  cmp.w (a1),d0
  1495.  beq isinlist
  1496.  
  1497.  bra.s InList
  1498.  
  1499. isinlist:
  1500. ; We have found the dest room in the
  1501. ; list of rooms visible from the
  1502. ; source room.
  1503.  
  1504. ; Do line of sight!
  1505.  
  1506.  st CanSee
  1507.  
  1508.  move.l Points,a2
  1509.  move.w Targetx,d1
  1510.  move.w Targetz,d2
  1511.  sub.w Viewerx,d1
  1512.  sub.w Viewerz,d2
  1513.  
  1514.  moveq #0,d3
  1515.  move.w -6(a0),d3
  1516.  blt nomorerclips
  1517.  move.l LEVELCLIPS,a1
  1518.  lea (a1,d3.l*2),a1
  1519.  move.l a1,clipstocheck
  1520. checklcliploop:
  1521.  tst.w (a1)
  1522.  blt nomorelclips
  1523.  
  1524.  move.w (a1),d0
  1525.  blt.s noleftone
  1526.  move.l (a2,d0.w*4),d3
  1527.  move.w d3,d4
  1528.  sub.w Viewerz,d4
  1529.  swap d3
  1530.  sub.w Viewerx,d3
  1531.  muls d2,d3
  1532.  muls d1,d4
  1533.  sub.l d3,d4
  1534.  ble outlist
  1535.  
  1536. noleftone:
  1537.  
  1538.  addq #2,a1
  1539.  
  1540.  bra checklcliploop
  1541.  
  1542. nomorelclips:
  1543.  
  1544.  addq #2,a1
  1545.  
  1546. checkrcliploop:
  1547.  tst.w (a1)
  1548.  blt nomorerclips
  1549.  
  1550.  move.w (a1),d0
  1551.  blt.s norightone
  1552.  move.l (a2,d0.w*4),d3
  1553.  move.w d3,d4
  1554.  sub.w Viewerz,d4
  1555.  swap d3
  1556.  sub.w Viewerx,d3
  1557.  muls d2,d3
  1558.  muls d1,d4
  1559.  sub.l d3,d4
  1560.  bge outlist
  1561.  
  1562. norightone:
  1563.  addq #2,a1
  1564.  
  1565.  bra checkrcliploop
  1566.  
  1567.  
  1568. nomorerclips:
  1569.  
  1570. ; No clipping points in the way; got to do the
  1571. ; vertical working out now.
  1572.  
  1573.  move.w Targetx,d0
  1574.  move.w Targetz,d1
  1575.  sub.w Viewerx,d0
  1576.  sub.w Viewerz,d1
  1577.  move.l FromRoom,a5
  1578.  move.l FloorLines,a1
  1579.  move.b ViewerTop,d2
  1580.  move.w Targety,d7
  1581.  sub.w Viewery,d7
  1582.  
  1583.  
  1584. GoThroughZones:
  1585.  move.l a5,a0
  1586.  adda.w ToExitList(a0),a0
  1587.  
  1588. FindWayOut:
  1589.  move.w (a0)+,d5
  1590.  blt outlist
  1591.  asl.w #4,d5
  1592.  lea (a1,d5.w),a2
  1593.  
  1594.  move.w (a2),d3
  1595.  move.w 2(a2),d4
  1596.  sub.w Viewerx,d3
  1597.  sub.w Viewerz,d4
  1598.  move.w d3,d5
  1599.  move.w d4,d6
  1600.  muls d1,d3
  1601.  muls d0,d4
  1602.  sub.l d3,d4
  1603.  ble FindWayOut
  1604.  
  1605.  add.w 4(a2),d5
  1606.  add.w 6(a2),d6
  1607.  muls d0,d6
  1608.  muls d1,d5
  1609.  sub.l d5,d6
  1610.  bge FindWayOut
  1611.  
  1612.  tst.w 8(a2)
  1613.  blt outlist
  1614.  
  1615. ; Here is the exit from the room. Calculate the height at which
  1616. ; we meet it.
  1617.  
  1618.  move.w Targetx,d3
  1619.  move.w Targetz,d4
  1620.  sub.w (a2),d3
  1621.  sub.w 2(a2),d4
  1622.  muls 4(a2),d4
  1623.  muls 6(a2),d3
  1624.  sub.l d3,d4    ; positive
  1625.  
  1626.  move.w Viewerx,d5
  1627.  move.w Viewerz,d6
  1628.  sub.w (a2),d5
  1629.  sub.w 2(a2),d6
  1630.  muls 4(a2),d6
  1631.  muls 6(a2),d5
  1632.  sub.l d6,d5    ; positive
  1633.  
  1634.  divs 10(a2),d4
  1635.  divs 10(a2),d5
  1636.  
  1637.  add.w d5,d4
  1638.  beq.s sameheight
  1639.  muls d7,d5
  1640.  divs d4,d5
  1641. sameheight:
  1642.  add.w Viewery,d5    ; height at which we cross wall
  1643.  
  1644.  ext.l d5
  1645.  asl.l #7,d5
  1646.  
  1647.  tst.b d2
  1648.  beq.s comparewithbottom
  1649.  
  1650.  cmp.l ToUpperRoof(a5),d5
  1651.  blt outlist
  1652.  cmp.l ToUpperFloor(a5),d5
  1653.  bgt outlist
  1654.  bra.s madeit
  1655.  
  1656. comparewithbottom:
  1657.  cmp.l ToZoneRoof(a5),d5
  1658.  blt outlist
  1659.  cmp.l ToZoneFloor(a5),d5
  1660.  bgt outlist
  1661. madeit:
  1662.  st donessomething
  1663.  
  1664.  moveq #0,d3
  1665.  move.w 8(a2),d3
  1666.  move.l ZoneAdds,a3
  1667.  move.l (a3,d3.w*4),a5
  1668.  add.l LEVELDATA,a5
  1669.  
  1670.  clr.b d2
  1671.  cmp.l ToZoneFloor(a5),d5
  1672.  bgt outlist
  1673.  cmp.l ToZoneRoof(a5),d5
  1674.  bgt.s GotIn
  1675.  st d2
  1676.  cmp.l ToUpperFloor(a5),d5
  1677.  bgt outlist
  1678.  cmp.l ToUpperRoof(a5),d5
  1679.  blt outlist
  1680.  
  1681. GotIn:
  1682.  
  1683.  cmp.l ToRoom,a5
  1684.  bne GoThroughZones
  1685.  
  1686.  move.b TargetTop,d3
  1687.  eor.b d2,d3
  1688.  bne outlist
  1689.  
  1690.  movem.l (a7)+,d0-d7/a0-a6
  1691.  rts
  1692.  
  1693. clipstocheck: dc.l 0
  1694. donessomething: dc.w 0
  1695.  
  1696. outlist:
  1697.  clr.b CanSee
  1698.  movem.l (a7)+,d0-d7/a0-a6
  1699.  rts
  1700.  
  1701.  
  1702. FindCollisionPt:
  1703.  movem.l d0-a7/a0-a6,-(a7)
  1704.  
  1705.  move.w Targetx,d0
  1706.  move.w Targetz,d1
  1707.  sub.w Viewerx,d0
  1708.  sub.w Viewerz,d1
  1709.  move.l FromRoom,a5
  1710.  move.l FloorLines,a1
  1711.  move.b ViewerTop,d2
  1712.  move.w Targety,d7
  1713.  sub.w Viewery,d7
  1714.  
  1715.  
  1716. .GoThroughZones:
  1717.  move.l a5,a0
  1718.  adda.w ToExitList(a0),a0
  1719.  
  1720. .FindWayOut:
  1721.  move.w (a0)+,d5
  1722.  blt outlist
  1723.  asl.w #4,d5
  1724.  lea (a1,d5.w),a2
  1725.  
  1726.  move.w (a2),d3
  1727.  move.w 2(a2),d4
  1728.  sub.w Viewerx,d3
  1729.  sub.w Viewerz,d4
  1730.  move.w d3,d5
  1731.  move.w d4,d6
  1732.  muls d1,d3
  1733.  muls d0,d4
  1734.  sub.l d3,d4
  1735.  ble .FindWayOut
  1736.  
  1737.  add.w 4(a2),d5
  1738.  add.w 6(a2),d6
  1739.  muls d0,d6
  1740.  muls d1,d5
  1741.  sub.l d5,d6
  1742.  bge .FindWayOut
  1743.  
  1744.  
  1745. ; Here is the exit from the room. Calculate the height at which
  1746. ; we meet it.
  1747.  
  1748.  move.w Targetx,d3
  1749.  move.w Targetz,d4
  1750.  sub.w (a2),d3
  1751.  sub.w 2(a2),d4
  1752.  muls 4(a2),d4
  1753.  muls 6(a2),d3
  1754.  sub.l d3,d4    ; positive
  1755.  
  1756.  move.w Viewerx,d5
  1757.  move.w Viewerz,d6
  1758.  sub.w (a2),d5
  1759.  sub.w 2(a2),d6
  1760.  muls 4(a2),d6
  1761.  muls 6(a2),d5
  1762.  sub.l d6,d5    ; positive
  1763.  
  1764.  divs 10(a2),d4
  1765.  divs 10(a2),d5
  1766.  
  1767.  move.w d5,d6
  1768.  add.w d5,d4
  1769.  beq.s .sameheight
  1770.  muls d7,d5
  1771.  divs d4,d5
  1772. .sameheight:
  1773.  add.w Viewery,d5    ; height at which we cross wall
  1774.  
  1775.  ext.l d5
  1776.  asl.l #7,d5
  1777.  
  1778.  moveq #0,d3
  1779.  move.w 8(a2),d3
  1780.  blt foundpt
  1781.  move.l ZoneAdds,a3
  1782.  move.l (a3,d3.w*4),a5
  1783.  add.l LEVELDATA,a5
  1784.  
  1785.  clr.b d2
  1786.  cmp.l ToZoneFloor(a5),d5
  1787.  bgt foundpt
  1788.  cmp.l ToZoneRoof(a5),d5
  1789.  bgt.s .GotIn
  1790.  st d2
  1791.  cmp.l ToUpperFloor(a5),d5
  1792.  bgt foundpt
  1793.  cmp.l ToUpperRoof(a5),d5
  1794.  blt foundpt
  1795.  
  1796. .GotIn:
  1797.  
  1798.  bra .GoThroughZones
  1799.  
  1800.  tst.w d4
  1801.  beq.s foundpt
  1802.  muls d6,d0
  1803.  divs d4,d0
  1804.  muls d6,d1
  1805.  divs d4,d1
  1806.  add.w Viewerx,d0
  1807.  add.w Viewerz,d1
  1808.  move.w d0,Targetx
  1809.  move.w d1,Targetz
  1810.  move.l d5,Targety
  1811.  
  1812. foundpt:
  1813.  
  1814.  movem.l (a7)+,d0-a7/a0-a6
  1815.  rts
  1816.  
  1817. GetRand:
  1818.  move.w Rand1,d0
  1819.  add.w #29,d0
  1820.  eor.w #$5f37,d0
  1821.  neg.w d0
  1822.  rol.w #5,d0
  1823.  move.w d0,Rand1
  1824.  rts
  1825.  
  1826. Rand1: dc.w 234
  1827.  
  1828. GoInDirection:
  1829.  move.l #SineTable,a0
  1830.  lea (a0,d0.w),a0
  1831.  move.w (a0),d1
  1832.  move.w 2048(a0),d2
  1833.  muls speed,d1
  1834.  add.l d1,d1
  1835.  muls speed,d2
  1836.  add.l d2,d2
  1837.  swap d1
  1838.  swap d2
  1839.  add.w oldx,d1
  1840.  add.w oldz,d2
  1841.  move.w d1,newx
  1842.  move.w d2,newz
  1843.  rts
  1844.  
  1845. CollideFlags: dc.l 0
  1846.  
  1847. Collision:
  1848.  
  1849.  move.l ObjectData,a0
  1850.  move.w CollId,d0
  1851.  asl.w #6,d0
  1852.  move.b 16(a0,d0.w),d0
  1853.  ext.w d0
  1854.  
  1855.  sub.w #64,a0
  1856.  move.l ObjectPoints,a1
  1857.  move.l #ColBoxTable,a2
  1858.  lea  (a2,d0.w*8),a3
  1859.  
  1860.  move.l CollideFlags,d7
  1861.  move.b StoodInTop,d6
  1862.  move.l newy,d4
  1863.  move.l d4,d5
  1864.  add.l thingheight,d5
  1865.  asr.l #7,d4
  1866.  asr.l #7,d5
  1867.  clr.b hitwall
  1868.  
  1869. checkcol:
  1870.  add.w #64,a0
  1871.  
  1872.  move.w (a0),d0
  1873.  blt checkedallcol
  1874.  
  1875.  cmp.w CollId,d0
  1876.  beq.s checkcol
  1877.  
  1878.  tst.w 12(a0)
  1879.  blt.s checkcol
  1880.  
  1881.  tst.b numlives(a0)
  1882.  beq.s checkcol
  1883.  
  1884.  move.b ObjInTop(a0),d1
  1885.  eor.b d6,d1
  1886.  bne checkcol
  1887.  
  1888.  moveq #0,d3
  1889.  move.b 16(a0),d3
  1890.  blt checkcol
  1891.  
  1892.  btst d3,d7
  1893.  beq checkcol
  1894.  
  1895.  move.w 4(a0),d1
  1896.  sub.w 2(a2,d3.w*8),d1
  1897.  cmp.w d1,d5
  1898.  blt checkcol
  1899.  add.w 4(a2,d3.w*8),d1
  1900.  cmp.w d1,d4
  1901.  bgt checkcol
  1902.  
  1903.  move.w (a1,d0.w*8),d1
  1904.  move.w 4(a1,d0.w*8),d2
  1905.  sub.w newx,d1
  1906.  bge.s .xnoneg
  1907.  neg.w d1
  1908. .xnoneg:
  1909.  sub.w newz,d2
  1910.  bge.s .znoneg
  1911.  neg.w d2
  1912. .znoneg:
  1913.  cmp.w d1,d2
  1914.  ble.s .checkx
  1915.  sub.w (a3),d2
  1916.  cmp.w (a2,d3.w*8),d2
  1917.  bgt checkcol
  1918.  st hitwall
  1919.  bra checkedallcol
  1920. .checkx:
  1921.  sub.w (a3),d1
  1922.  cmp.w (a2,d3.w*8),d1
  1923.  bgt checkcol
  1924.  
  1925.  move.w (a1,d0.w*8),d1
  1926.  move.w 4(a1,d0.w*8),d2
  1927.  move.w d1,d6
  1928.  move.w d2,d7
  1929.  sub.w newx,d6
  1930.  sub.w newz,d7
  1931.  muls d6,d6
  1932.  muls d7,d7
  1933.  add.l d6,d7
  1934.  sub.w oldx,d1
  1935.  sub.w oldz,d2
  1936.  muls d1,d1
  1937.  muls d2,d2
  1938.  add.l d1,d2
  1939.  cmp.l d2,d7
  1940.  bgt checkcol
  1941.  
  1942.  st hitwall
  1943.  bra checkedallcol
  1944.  
  1945. ; bra checkcol
  1946.  
  1947. checkedallcol:
  1948.  rts
  1949.  
  1950. ColBoxTable:
  1951.  
  1952. ; red scurrying alien
  1953.  dc.w 40,60,120,0
  1954. ; Medipack
  1955.  dc.w 40,20,40,0
  1956. ; Bullet
  1957.  dc.w 40,20,40,0
  1958. ; Gun
  1959.  dc.w 40,20,40,0
  1960. ; Key
  1961.  dc.w 40,20,40,0
  1962. ; PLayer1
  1963.  dc.w 40,40,80,0
  1964. ;Robot
  1965.  dc.w 40,50,100,0
  1966. ;?
  1967.  dc.w 40,20,40,0
  1968. ; Flying Nasty
  1969.  dc.w 80,60,120,0
  1970. ; Ammo
  1971.  dc.w 40,20,40,0
  1972. ; Barrel
  1973.  dc.w 40,30,60,0
  1974. ;PlAYER2
  1975.  dc.w 40,40,80,0
  1976. ; Mutant Marine
  1977.  dc.w 40,40,80,0
  1978. ; worm
  1979.  dc.w 80,60,120,0
  1980. ; huge red thing
  1981.  dc.w 160,100,200,0
  1982. ; small red thing
  1983.  dc.w 80,50,100,0
  1984. ; tree
  1985.  dc.w 80,60,120,0
  1986. ; eyeball
  1987.  dc.w 40,30,60,0
  1988. ; Tough Marine
  1989.  dc.w 40,40,80,0
  1990. ; ShotGun Marine
  1991.  dc.w 40,40,80,0
  1992.  
  1993. FromZone: dc.w 0
  1994. OKTEL: dc.w 0
  1995. floortemp: dc.l 0
  1996.  
  1997. CheckTeleport:
  1998.  clr.b OKTEL
  1999.  move.w FromZone,d0
  2000.  move.l ZoneAdds,a2
  2001.  move.l (a2,d0.w*4),a2
  2002.  add.l LEVELDATA,a2
  2003.  tst.w ToTelZone(a2)
  2004.  bge.s ITSATEL
  2005.  rts
  2006.  
  2007. ITSATEL:
  2008.  move.l ToZoneFloor(a2),floortemp
  2009.  move.w ToTelZone(a2),d0
  2010.  move.l ZoneAdds,a3
  2011.  move.l (a3,d0.w*4),a3
  2012.  add.l LEVELDATA,a3
  2013.  move.l ToZoneFloor(a3),d0
  2014.  sub.l floortemp,d0
  2015.  move.l d0,floortemp
  2016.  add.l d0,newy 
  2017.  move.w ToTelX(a2),newx
  2018.  move.w ToTelZ(a2),newz
  2019.  move.l #%1111111111111111111,CollideFlags
  2020.  movem.l a0/a1/a2,-(a7)
  2021.  bsr Collision
  2022.  movem.l (a7)+,a0/a1/a2
  2023.  
  2024.  move.l floortemp,d0
  2025.  sub.l d0,newy
  2026.  
  2027.  tst.b hitwall
  2028.  seq OKTEL
  2029.  beq.s .teleport
  2030.  rts
  2031. .teleport:
  2032.  move.w ToTelZone(a2),d0
  2033.  move.l ZoneAdds,a2
  2034.  move.l (a2,d0.w*4),a2
  2035.  add.l LEVELDATA,a2
  2036.  move.l a2,objroom
  2037.  
  2038.  rts
  2039.  
  2040. FindCloseRoom:
  2041.  ; d0 is distance.
  2042.  
  2043.  move.w 4(a0),d1
  2044.  ext.l d1
  2045.  asl.l #7,d1
  2046.  move.l d1,oldy
  2047.  move.l d1,newy
  2048.  
  2049.  move.w (a0),d1
  2050.  move.l ObjectPoints,a1
  2051.  lea (a1,d1.w*8),a1
  2052.  move.w (a1),oldx 
  2053.  move.w 4(a1),oldz
  2054.  
  2055.  move.w 12(a0),d2
  2056.  move.l ZoneAdds,a5
  2057.  move.l (a5,d2.w*4),d2
  2058.  add.l LEVELDATA,d2
  2059.  move.l d2,objroom
  2060.  
  2061.  move.w THISPLRxoff,newx
  2062.  move.w THISPLRzoff,newz
  2063.  move.w d0,speed
  2064.  movem.l a0/a1,-(a7)
  2065.  jsr HeadTowards
  2066.  movem.l (a7)+,a0/a1
  2067.  
  2068.  move.w newx,d0
  2069.  sub.w oldx,d0
  2070.  move.w oldz,d1
  2071.  sub.w newz,d1
  2072.  
  2073.  move.w d1,xd
  2074.  move.w d0,zd
  2075.  
  2076.  move.l #100000,StepUpVal
  2077.  move.l #100000,StepDownVal
  2078.  move.w #0,thingheight
  2079.  
  2080.  st exitfirst
  2081.  
  2082.  add.w oldx,d1
  2083.  add.w oldz,d0
  2084.  move.w d1,newx
  2085.  move.w d0,newz
  2086.  movem.l d0-d7/a0-a6,-(a7)
  2087.  clr.b wallbounce
  2088.  jsr MoveObject
  2089.  movem.l (a7)+,d0-d7/a0-a6
  2090.  
  2091.  move.l #RoomPath,a2
  2092.  move.l #possclose,a3
  2093.  move.w 12(a0),(a3)+
  2094.  
  2095. putinmore:
  2096.  move.w (a2)+,(a3)+
  2097.  bge.s putinmore
  2098.  subq #2,a3
  2099.  
  2100.  move.w oldx,d0
  2101.  sub.w xd,d0
  2102.  move.w oldz,d1
  2103.  sub.w zd,d1
  2104.  move.w d0,newx
  2105.  move.w d1,newz    
  2106.  
  2107.  movem.l d0-d7/a0-a6,-(a7)
  2108.  clr.b wallbounce
  2109.  jsr MoveObject
  2110.  movem.l (a7)+,d0-d7/a0-a6
  2111.  
  2112.  move.l #RoomPath,a2
  2113.  
  2114. putinmore2:
  2115.  move.w (a2)+,d0
  2116.  move.w d0,(a3)+
  2117.  tst.w d0
  2118.  bge.s putinmore2
  2119.  
  2120. ; ok a3 points at list of rooms passed through.
  2121.  move.w #-1,(a3)+
  2122.  
  2123.  
  2124.  move.w 12(a0),d7
  2125.  
  2126.  move.l endoflist,a3
  2127. FINDCLOSELOOP:
  2128.  move.l #possclose,a2
  2129.  move.w -(a3),d0
  2130.  blt foundclose
  2131.  
  2132. findinner
  2133.  move.w (a2)+,d1
  2134.  blt.s outin
  2135.  cmp.w d0,d1
  2136.  bne.s findinner
  2137.  move.w d0,d7
  2138. outin:
  2139.  
  2140.  bra.s FINDCLOSELOOP
  2141.  
  2142. foundclose:
  2143.  
  2144.  move.w d7,GraphicRoom(a0)
  2145.  
  2146.  rts
  2147.  
  2148. xd: dc.w 0
  2149. zd: dc.w 0
  2150.  
  2151. possclose:
  2152.  ds.w 100